home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaw.d64 / hazmat_lpg (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  247 lines
  1. 2 PRINTCHR$(147)
  2. 3 POKE53281,1:POKE53280,12
  3. 4 PRINTTAB(5)"EVENT[146] SEQUENCES":PRINT
  4. 5 PRINTTAB(10)"IN[146] AN":PRINT
  5. 6 PRINTTAB(13)"LPG[146] RELEASE":GOTO3000
  6. 7 FOR T=1 TO2500 STEP1 :NEXTT:PRINTCHR$(147):PRINT""
  7. 10 PRINT"           PROGRAM WRITTEN BY":PRINT
  8. 11 PRINT"[129]           ROBERT J. SMITH
  9. 12 [153]"OPEN                SERGEANT":[153]
  10. 13 [153]"            BEAUMONT POLICE
  11. 14 PRINT"[158]             BEAUMONT,TEXAS
  12. 15 [143]            (409) 838-0801
  13. 16 [143]           DATE COMPLETED 11-23-86LIST
  14. 20 [129] T[178]1 [164]1000 [169]1 :[130]T:[153][199](147):[153]" "
  15. 21 [153]"OPEN        ACTUAL MATERIAL FOR BLOCKS":[153]
  16. 22 [153]"       WAS OBTAINED FROM THE LPG REPORT":[153]
  17. 23 [153]"        R & D  RISK-BENEFIT ANALYSIS":[153]
  18. 24 [153]"        LPG TRANSPORT SUMMARY REPORT
  19. 26 FOR T=1 TO2000 STEP1 :NEXTT:PRINTCHR$(147):PRINT""
  20. 27 PRINT"[156]         TRANSPORT CANADA
  21. 28 [153]"OPEN        ENERGY R&D PROGRAM":[153]
  22. 31 [153]"         PREPARED BY:":[153]
  23. 32 [153]"CONT         CARY SWOVELAND
  24. 33 PRINT"[154]         JACK CAWDERY
  25. 34 [153]"         QUANTALYTICS INC.
  26. 35 PRINT
  27. 38 FOR T=1 TO2000 STEP1 :NEXTT:PRINTCHR$(147):PRINT""
  28. 41 REM THIS PROGRAM IS INTENDED FOR        PUBLIC DOMAIN USE ONLY.
  29. 45 REM*********************************************
  30. 70 PRINTCHR$(147)
  31. 75 POKE53281,7:POKE53280,14
  32. 100 PRINTTAB(5)"EVENT[146] SEQUENCES":PRINT
  33. 101 PRINTTAB(10)"IN[146][157]N":PRINT
  34. 102 PRINTTAB(13)"LPG[146] RELEASE":GOTO2000
  35. 110 FOR M=1  TO 2500 STEP1
  36. 111 NEXT M
  37. 112 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:POKE53281,3
  38. 120 PRINTTAB(5)"INSTANTANEOUS SPILL OR STEADY LEAK":PRINT
  39. 130 PRINTTAB(10)"(1)  NO IGNITION":PRINT
  40. 140 PRINTTAB(10)"(2)  DELAYED IGNITION":PRINT
  41. 150 PRINTTAB(10)"(3)  IMMEDIATE IGNITION                      FIRE":PRINT
  42. 151 PRINTTAB(10)"(4)  IMMEDIATE IGNITION                      B.E.L.V.E":PRINT
  43. 165 PRINTTAB(10)"[144](5)  E N D "
  44. 166 PRINT:PRINTTAB(10)"[158]PLEASE SELECT OCCURANCE[144]"
  45. 170 INPUTA$
  46. 180 IF A$="1" GOTO 500
  47. 190 IF A$="2" GOTO 600
  48. 200 IF A$="3" GOTO 700
  49. 201 IF A$="4" GOTO800
  50. 220 IF A$="5"THEN END
  51. 500 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:POKE53281,13
  52. 501 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  53. 502 PRINTTAB(5)"[180]                       [170]"
  54. 504 PRINTTAB(5)"[180]                       [170]"
  55. 505 PRINTTAB(5)"[180]FROST BURNS AND        [170]"
  56. 506 PRINTTAB(5)"[180]POSSIBLE DEATH FROM    [170]"
  57. 507 PRINTTAB(5)"[180]CONTACT WITH CHILLED   [170]"
  58. 508 PRINTTAB(5)"[180]LIQUID.                [170]"
  59. 510 PRINTTAB(5)"[180]                       [170]":
  60. 514 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  61. 550 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  62. 560 PRINT"[129]      PRESS RETURN[146] TO GO TO MENU[144]":GOSUB1000
  63. 600 PRINTCHR$(147):POKE53281,3
  64. 601 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  65. 602 PRINTTAB(5)"[180]  (1) PLUME CONFINED   [170]"
  66. 604 PRINTTAB(5)"[180]      AT  IGNITION     [170]"
  67. 605 PRINTTAB(5)"[180]                       [170]"
  68. 606 PRINTTAB(5)"[180]                       [170]"
  69. 607 PRINTTAB(5)"[180]  (2) PLUME UNCONFINED [170]"
  70. 608 PRINTTAB(5)"[180]      AT  IGNITION     [170]"
  71. 610 PRINTTAB(5)"[180]                       [170]"
  72. 611 PRINTTAB(5)"[180]    PRESS (1) OR (2)   [170]"
  73. 614 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  74. 620 INPUTX$
  75. 621 IFX$="1"THEN GOSUB 630
  76. 627 IFX$="2"THENGOSUB 674
  77. 630 PRINTCHR$(147)
  78. 631 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  79. 632 PRINTTAB(5)"[180]  POSSIBLE DETONATION  [170]"
  80. 634 PRINTTAB(5)"[180]   OF PLUME,REAMING    [170]"
  81. 635 PRINTTAB(5)"[180]      LIQUID BURNS     [170]"
  82. 636 PRINTTAB(5)"[180]  -------------------  [170]"
  83. 637 PRINTTAB(5)"[180]  DEATHS OF PERSONS    [170]"
  84. 638 PRINTTAB(5)"[180]  AND DESTRUCTION OF   [170]"
  85. 640 PRINTTAB(5)"[180]  PROPERTY IN AND NEAR [170]"
  86. 641 PRINTTAB(5)"[180]         PLUME         [170]"
  87. 642 PRINTTAB(5)"[180]                       [170]"
  88. 644 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  89. 645 PRINTTAB(5)"  PRESS RETURN FOR MENU "
  90. 650 GOSUB1000
  91. 674 PRINTCHR$(147)
  92. 675 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  93. 676 PRINTTAB(5)"[180]  EXPLOSION AND / OR   [170]"
  94. 677 PRINTTAB(5)"[180]  FLASH PLUME FIRE,    [170]"
  95. 678 PRINTTAB(5)"[180]  FIRE AT REMAINING    [170]"
  96. 679 PRINTTAB(5)"[180]  POOL OF LIQUID       [170]"
  97. 680 PRINTTAB(5)"[180]  -------------------  [170]"
  98. 681 PRINTTAB(5)"[180]  DEATHS OF PERSONS    [170]"
  99. 682 PRINTTAB(5)"[180]  AND DESTRUCTION OF   [170]"
  100. 683 PRINTTAB(5)"[180]  PROPERTY IN PLUM AND [170]"
  101. 684 PRINTTAB(5)"[180]  NEAR POOL            [170]"
  102. 685 PRINTTAB(5)"[180]                       [170]"
  103. 686 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  104. 687 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  105. 690 PRINTTAB(5)"PRESS RETURN TO CONTINUE[146]":GOSUB 1000
  106. 700 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,4
  107. 701 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  108. 702 PRINTTAB(6)"[180]                       [170]"
  109. 705 PRINTTAB(6)"[180]  FIRE SET BY BURNING  [170]"
  110. 706 PRINTTAB(6)"[180]        LIQUID         [170]"
  111. 710 PRINTTAB(6)"[180]                       [170]"
  112. 714 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  113. 715 PRINTTAB(6)"            [180]
  114. 716 [153][163]6)"            SGN
  115. 717 PRINTTAB(6)"            [180]
  116. 718 [153][163]6)"           (null)(null)
  117. 719 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  118. 720 PRINTTAB(6)"[180]                       [170]"
  119. 721 PRINTTAB(6)"[180]  POSSIBLE DEATHS OR   [170]"
  120. 722 PRINTTAB(6)"[180] INJURIES NEAR BURNING [170]"
  121. 723 PRINTTAB(6)"[180] LIQUID, DAMAGE FROM   [170]"
  122. 724 PRINTTAB(6)"[180]         FIRE          [170]"
  123. 725 PRINTTAB(6)"[180]                       [170]"
  124. 726 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  125. 730 PRINT:PRINT:PRINTTAB(6)"PRESS RETURN TO GO TO MENU[144]"
  126. 735 GOSUB 1000
  127. 800 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,7
  128. 801 PRINTTAB(6)"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]"
  129. 802 PRINTTAB(6)"[199]                       [200]"
  130. 803 PRINTTAB(6)"[199]     FIRE HEATS TANK   [200]"
  131. 804 PRINTTAB(6)"[199]                       [200]"
  132. 805 PRINTTAB(6)"[202][198][198][198][198][198][198][198][198][198][166][166][166][144][198][198][198][198][198][198][198][198][198][198][198][203]"
  133. 806 PRINTTAB(6)"       [166][166][166][166][166][166][166][166][166][166] "
  134. 807 PRINTTAB(6)"     [166][166][166][166][166][166][166][166][166][166][166][166][166][144]"
  135. 808 PRINTTAB(9)"[213][196][196][196][166][166][166][166][166][166][166][166][166][166][166][166][166][144][196][196][196][196][196][196][196][201]"
  136. 809 PRINTTAB(9)"[199]                       [200]"
  137. 810 PRINTTAB(9)"[199]                       [200]"
  138. 811 PRINTTAB(9)"[199]                       [200]"
  139. 812 PRINTTAB(9)"[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]"
  140. 815 FOR M=1 TO 2000 STEP 1
  141. 816 NEXT M
  142. 817 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,13:GOSUB5000:PRINT:PRINT:PRINT
  143. 818 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  144. 819 PRINTTAB(6)"[180]   PRESSURE RELEASE    [170]"
  145. 820 PRINTTAB(6)"[180]   VALVE FAILS TO      [170]"
  146. 821 PRINTTAB(6)"[180]   OPERATE PROPERLY    [170]"
  147. 822 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  148. 825 FOR M=1 TO 2000 STEP 1
  149. 826 NEXT M
  150. 827 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,4
  151. 828 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  152. 829 PRINTTAB(6)"[180]   TANK WELL WEAKENS   [170]"
  153. 830 PRINTTAB(6)"[180]   DUE TO EXPOSURE     [170]"
  154. 831 PRINTTAB(6)"[180]   TO FIRE             [170]"
  155. 832 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  156. 833 FOR M=1 TO 2000 STEP 1
  157. 834 NEXT M
  158. 835 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:POKE53281,1
  159. 836 PRINTTAB(3)"               [207][183][208]            "
  160. 837 PRINTTAB(3)"   [213][196][196][196][196][196][196][196][196][196][196][196][196][205]   [196][196][196][196][196][196][196][196][196][201]"
  161. 838 PRINTTAB(3)"   [221]              [206]          [221]"
  162. 839 PRINTTAB(3)"   [221]      TANK    [205]          [200]"
  163. 840 PRINTTAB(3)"   [221]             EXP[205]LODES   [221]"
  164. 850 PRINTTAB(3)"   [221]            [218]   [206]        [221]"
  165. 851 PRINTTAB(3)"   [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198] [205][198][198][198][198][198][198][198][198][203]"
  166. 852 PRINTTAB(3)"[144]   [164][164][164]O[192]O[164][164][164][164][164][164][164][164][164][164][164][164][164][164]O-O[164][164] "
  167. 853 PRINTTAB(3)"[144]   [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]
  168. 855 [129] M[178]1 [164] 2000 [169] 1
  169. 856 [130] M
  170. 860 [153][199](147):[153]:[153]:[153]:[151]53280,14
  171. 861 [153][163]1)" O       (null)USR(null)            "
  172. 863 [153][163]1)"   (null)              (null)             (null)"
  173. 864 [153][163]1)"   (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$(null)         STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  174. 865 [153]:[153]"                         "
  175. 866 [153][163]1)"   (null)ROCKETING OF  (null)          TANK  (null)"
  176. 869 [153][163]1)"   (null)            (null)FRA(null)      GMENTS  (null)"
  177. 870 [153]:[153]"                         "
  178. 872 [153][163]1)"   MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC (null)      ASCASCASCASCASCASCASCASC(null)"
  179. 873 [153][163]3)"STOP   TOTOTO TANOTOTOTOTOTOTOTOTOTOTOTOTOTOTOO-OTOTO "
  180. 874 [153][163]3)"STOP   >>>>>>>>>>>>>>>>>>>>>>>>>":[153]:[153]
  181. 875 [153][163]6)"SYS(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"
  182. 876 [153][163]6)"SGN                       +"
  183. 877 [153][163]6)"SGN  POSSIBLE DEATHS,     +"
  184. 878 [153][163]6)"SGN INJURIES AND PROPERTY +"
  185. 879 [153][163]6)"SGN DAMAGE FROM FLYING    +"
  186. 880 [153][163]6)"SGN FRAGMENTS             +"
  187. 881 [153][163]6)"SGN                       +"
  188. 882 [153][163]6)"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRSTOP"
  189. 884 [129] M[178]1 [164] 3000 [169] 1
  190. 885 [130] M
  191. 900 [153]"FLASHING VAPOR CREATES LARGE FIREBALL"
  192. 911 [153]"      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(   "
  193. 912 [153]"     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  "
  194. 920 [153]"    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  "
  195. 921 [153]"   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  "
  196. 922 [153]"  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( "
  197. 930 [153]"  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( "
  198. 931 [153]"   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  "
  199. 932 [153]"    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  "
  200. 940 [153]"     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(   "
  201. 941 [153]"      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    "
  202. 942 [153]"  (null)TANTANTANSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(TANTANTANRIGHT$ "
  203. 950 [153]"  (null) SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( (null)
  204. 951 PRINT"  [221][166][166][166][166][166][166][166][166][166][166][166][166][166][166][221]
  205. 952 [153]"  MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  206. 955 PRINT:PRINT:PRINT
  207. 960 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  208. 961 PRINT"[221]  DEATH OF PERSONS AND         [221]"
  209. 962 PRINT"[221]  DESTRUCTION OF PROPERTY      [221]"
  210. 963 PRINT"[221]  UNDER AND NEAR FIREBALL      [221]"
  211. 964 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  212. 965 [153]"PRESS RETURN TO GO TO MENU"
  213. 970 [141]1000
  214. 1000 [133] R$
  215. 1001 [139] R$[178]""[167] 112
  216. 2000 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]
  217. 2001 [153][163]3)"STOP               (null)USR(null)            SPC(SPC("
  218. 2002 [153][163]3)"STOP   (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$  SPC(SPC("
  219. 2003 [153][163]3)"STOP   (null)                       (null)SPC(SPC(SPC("
  220. 2004 [153][163]3)"STOP   (null)                    (null)NOTSPC(SPC(SPC(SPC(SPC("
  221. 2005 [153][163]3)"STOP   (null)                    MID$SPC(STOP (null)"
  222. 2006 [153][163]3)"STOP   (null)            (null)          (null)"
  223. 2007 [153][163]3)"STOP   MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  224. 2008 [153][163]3)"STOP   TOTOTOO>OTOTOTOTOTOTOTOTOTOTOTOTOTOTOO>OTOTO "
  225. 2009 [153][163]3)"STOP   >>>>>>>>>>>>>>>>>>>>>>>>>
  226. 2020 GOSUB110
  227. 3000 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  228. 3001 PRINTTAB(3)"[144]               [207][183][208]            [166][166]"
  229. 3002 PRINTTAB(3)"[144]   [213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]  [166][166]"
  230. 3003 PRINTTAB(3)"[144]   [221]                       [221][166][166][166]"
  231. 3004 PRINTTAB(3)"[144]   [221]                    [213][168][166][166][166][166][166]"
  232. 3005 PRINTTAB(3)"[144]   [221]                    [202][166][144] [221]"
  233. 3006 PRINTTAB(3)"[144]   [221]            [218]          [221]"
  234. 3007 PRINTTAB(3)"[144]   [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]"
  235. 3008 PRINTTAB(3)"[144]   [164][164][164]O[177]O[164][164][164][164][164][164][164][164][164][164][164][164][164][164]O[177]O[164][164] "
  236. 3009 PRINTTAB(3)"[144]   [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]
  237. 3020 [141] 7
  238. 5000 [153]:[153]:[153]
  239. 5001 [153][163]10)" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"
  240. 5002 [153][163]10)" SGN   (null)STR$STR$STR$STR$STR$RIGHT$    ABS"
  241. 5003 [153][163]10)" SGN   (null)  (null)  (null)    ABS"
  242. 5004 [153][163]10)" SGN   (null)(null) O (null)(null)    ABS"
  243. 5005 [153][163]10)" SGN   (null)  (null)  (null)    ABS"
  244. 5006 [153][163]10)" SGN   MID$TANTANTANTANTAN(null)    ABS"
  245. 5007 [153][163]10)" (null)ANDANDANDANDSQR   (null)ANDANDANDANDANDSQR"
  246. 5008 [142]
  247.